home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / ForCLI / ReqAsk.lha / Request.asm
Encoding:
Assembly Source File  |  1994-03-28  |  1.1 KB  |  85 lines
  1.  
  2. execbase = 4
  3. OpenLib     = -552
  4. CloseLib = -414
  5.  
  6.  
  7. AutoRequest = -348
  8.  
  9.     move.l    execbase,a6
  10.     lea    intuiname,a1
  11.     moveq    #0,d0
  12.     jsr    OpenLib(a6)
  13.     tst.l    d0
  14.     beq    _nointuition
  15.  
  16.     move.l    d0,a6
  17.  
  18. requ:
  19.     move.l    #0,a0        ; WBSCREEN
  20.     lea    btext,a1    ; Bodytext
  21.     lea    ltext,a2    ; Lefttext
  22.     lea    rtext,a3    ; Righttext
  23.     move.l    #0,d0        ; IDCMP left
  24.     move.l    #0,d1        ; IDCMP right
  25.     move.l    #180,d2
  26.     move.l    #80,d3
  27.     jsr    AutoRequest(a6)
  28.  
  29. auswertung:
  30.     tst.l    d0        ; welcher Knopf (0=rechts)
  31.     beq    requ        
  32.  
  33.     move.l    a6,a1
  34.     move.l    execbase,a6
  35.     jsr    CloseLib(a6)
  36.     
  37. _nointuition:
  38.     rts
  39.  
  40.  
  41. intuiname:
  42.     dc.b "intuition.library",0
  43.     even
  44. intuibase:
  45.     dc.l 0
  46.  
  47. btext:
  48.     dc.b    0,1    ; Farben
  49.     dc.b    0    ; Modus
  50.     even
  51.     dc.w    10,10    ; Text-Position
  52.     dc.l    0    ; topaz
  53.     dc.l    bodytext
  54.     dc.l    0    ; kein weiterer Text
  55. bodytext:
  56.     dc.b "Programm beenden?",0
  57.     even
  58.  
  59. ltext:
  60.     dc.b    0,1    ; Farben
  61.     dc.b    0    ; Modus
  62.     even
  63.     dc.w    5,3    ; Text-Position
  64.     dc.l    0    ; topaz
  65.     dc.l    lefttext
  66.     dc.l    0    ; kein weiterer Text
  67. lefttext:
  68.     dc.b "Ja",0
  69.     even
  70.  
  71. rtext:
  72.     dc.b    0,1    ; Farben
  73.     dc.b    0    ; Modus
  74.     even
  75.     dc.w    5,3    ; Text-Position
  76.     dc.l    0    ; topaz
  77.     dc.l    righttext
  78.     dc.l    0    ; kein weiterer Text
  79. righttext:
  80.     dc.b "Nein",0
  81.     even
  82.  
  83.  
  84.  END
  85.